Software of the Month Club 1996 May

home *** CD-ROM | disk | FTP | other *** search

/ Software of the Month Club 1996 May / Software of the Month Club 1996 May.iso / mac / ISO9660 / ZIPFILES / BMPWIZ.ZIP / SPHERE2.BAS < prev next >

Unknown | 1994-02-07 | 936 b

open in:

MacOS 8.1 |

Win98 |

DOS

view JSON data |

view as text

This file was not able to be converted.
This format is not currently supported by dexvert.

Confidence	Program	Detection	Match Type	Support
`66%`	dexvert	GW-BASIC `(document/gwBasic)`	ext	Supported
`66%`	dexvert	GFA-BASIC Atari `(other/gfaBASICAtari)`	ext	Supported
`1%`	dexvert	Amiga BASIC Protected File `(other/amigaBASICProtectedFile)`	ext	Unsupported
`1%`	dexvert	BAS VBDOS Pro 1.0 Source `(other/basVBDOSPro10Source)`	ext	Unsupported
`1%`	dexvert	Visual Basic Tokenized Source `(other/visualBasicTokenizedSource)`	ext	Unsupported
`1%`	dexvert	ZBASIC `(other/zbasic)`	ext	Unsupported
`100%`	file	data	default

hex view

+--------+-------------------------+-------------------------+--------+--------+
|00000000| a4 03 00 00 0d 0a 27 20 | 53 70 68 65 72 65 32 2e |......' |Sphere2.|
|00000010| 0d 0a 27 20 52 61 6e 64 | 6f 6d 20 73 70 68 65 72 |..' Rand|om spher|
|00000020| 65 73 0d 0a 20 0d 0a 27 | 20 49 6e 70 75 74 3a 09 |es.. ..'| Input:.|
|00000030| 31 2d 34 2d 38 2d 32 34 | 20 62 69 74 0d 0a 27 20 |1-4-8-24| bit..' |
|00000040| 4f 75 74 70 75 74 3a 09 | 69 64 65 6d 0d 0a 0d 0a |Output:.|idem....|
|00000050| 27 20 41 75 74 68 6f 72 | 3a 09 41 6e 64 72 65 61 |' Author|:.Andrea|
|00000060| 20 42 65 6e 6f 6e 69 09 | 09 09 20 72 65 76 3a 09 | Benoni.|.. rev:.|
|00000070| 31 2e 32 0d 0a 0d 0a 0d | 0a 73 74 72 69 6e 67 20 |1.2.....|.string |
|00000080| 20 20 20 09 69 6e 70 46 | 69 6c 65 2c 6f 75 74 46 |   .inpF|ile,outF|
|00000090| 69 6c 65 0d 0a 44 65 76 | 43 6f 6e 09 4f 62 6d 70 |ile..Dev|Con.Obmp|
|000000a0| 0d 0a 52 47 42 09 70 69 | 78 0d 0a 66 6c 6f 61 74 |..RGB.pi|x..float|
|000000b0| 20 20 09 72 2c 61 2c 78 | 2c 79 2c 70 65 72 2c 72 |  .r,a,x|,y,per,r|
|000000c0| 73 2c 72 61 64 2c 69 2c | 78 72 2c 79 72 0d 0a 66 |s,rad,i,|xr,yr..f|
|000000d0| 6c 6f 61 74 20 20 20 20 | 20 20 20 20 20 4c 69 2c |loat    |     Li,|
|000000e0| 43 6f 0d 0a 0d 0a 6f 75 | 74 46 69 6c 65 3d 22 54 |Co....ou|tFile="T|
|000000f0| 65 73 74 6f 2e 62 6d 70 | 22 09 09 09 27 20 6f 75 |esto.bmp|"...' ou|
|00000100| 74 70 75 74 20 66 69 6c | 65 0d 0a 0d 0a 4f 62 6d |tput fil|e....Obm|
|00000110| 70 3d 43 72 65 61 74 65 | 49 6d 61 67 65 28 34 30 |p=Create|Image(40|
|00000120| 30 2c 34 30 30 2c 32 34 | 29 0d 0a 0d 0a 72 61 64 |0,400,24|)....rad|
|00000130| 3d 36 2e 32 38 2f 38 35 | 0d 0a 0d 0a 66 6f 72 20 |=6.28/85|....for |
|00000140| 69 3d 31 20 74 6f 20 31 | 30 30 0d 0a 20 20 78 72 |i=1 to 1|00..  xr|
|00000150| 3d 52 61 6e 64 28 4f 62 | 6d 70 2e 57 69 64 74 68 |=Rand(Ob|mp.Width|
|00000160| 2d 31 32 38 29 2b 36 34 | 0d 0a 20 20 79 72 3d 52 |-128)+64|..  yr=R|
|00000170| 61 6e 64 28 4f 62 6d 70 | 2e 48 65 69 67 68 74 2d |and(Obmp|.Height-|
|00000180| 31 32 38 29 2b 36 34 0d | 0a 20 20 70 65 72 3d 72 |128)+64.|.  per=r|
|00000190| 61 6e 64 28 35 36 29 2b | 38 20 20 0d 0a 20 20 43 |and(56)+|8  ..  C|
|000001a0| 6f 3d 52 61 6e 64 28 33 | 29 25 33 0d 0a 20 20 46 |o=Rand(3|)%3..  F|
|000001b0| 6f 72 20 72 3d 30 20 74 | 6f 20 70 65 72 0d 0a 20 |or r=0 t|o per.. |
|000001c0| 20 20 20 20 72 73 3d 73 | 69 6e 28 31 2e 35 37 2f |    rs=s|in(1.57/|
|000001d0| 70 65 72 2a 72 29 2a 70 | 65 72 0d 0a 20 20 20 20 |per*r)*p|er..    |
|000001e0| 20 4c 69 3d 2e 38 2d 28 | 2e 38 2f 70 65 72 2a 72 | Li=.8-(|.8/per*r|
|000001f0| 29 0d 0a 20 20 20 20 20 | 46 6f 72 20 61 3d 30 20 |)..     |For a=0 |
|00000200| 74 6f 20 38 35 0d 0a 20 | 20 20 20 20 20 20 20 78 |to 85.. |       x|
|00000210| 3d 73 69 6e 28 72 61 64 | 2a 61 29 0d 0a 20 20 20 |=sin(rad|*a)..   |
|00000220| 20 20 20 20 20 79 3d 63 | 6f 73 28 72 61 64 2a 61 |     y=c|os(rad*a|
|00000230| 29 0d 0a 20 20 20 20 20 | 20 20 20 70 69 78 2e 4c |)..     |   pix.L|
|00000240| 75 6d 3d 32 35 35 2a 4c | 69 0d 0a 20 20 20 20 20 |um=255*L|i..     |
|00000250| 20 20 20 69 66 28 43 6f | 3d 30 29 0d 0a 20 20 20 |   if(Co|=0)..   |
|00000260| 20 20 20 20 20 20 20 20 | 70 69 78 2e 52 65 64 3d |        |pix.Red=|
|00000270| 32 35 35 2a 28 4c 69 2b | 2e 32 29 0d 0a 20 20 20 |255*(Li+|.2)..   |
|00000280| 20 20 20 20 20 65 6e 64 | 69 66 0d 0a 20 20 20 20 |     end|if..    |
|00000290| 20 20 20 20 69 66 28 43 | 6f 3d 31 29 0d 0a 20 20 |    if(C|o=1)..  |
|000002a0| 20 20 20 20 20 20 20 20 | 20 70 69 78 2e 47 72 65 |        | pix.Gre|
|000002b0| 65 6e 3d 32 35 35 2a 28 | 4c 69 2b 2e 32 29 0d 0a |en=255*(|Li+.2)..|
|000002c0| 20 20 20 20 20 20 20 20 | 65 6e 64 69 66 0d 0a 20 |        |endif.. |
|000002d0| 20 20 20 20 20 20 20 69 | 66 28 43 6f 3d 32 29 0d |       i|f(Co=2).|
|000002e0| 0a 20 20 20 20 20 20 20 | 20 20 20 20 70 69 78 2e |.       |    pix.|
|000002f0| 42 6c 75 65 3d 32 35 35 | 2a 28 4c 69 2b 2e 32 29 |Blue=255|*(Li+.2)|
|00000300| 0d 0a 20 20 20 20 20 20 | 20 20 65 6e 64 69 66 0d |..      |  endif.|
|00000310| 0a 20 20 20 20 20 20 20 | 20 53 65 74 50 69 78 65 |.       | SetPixe|
|00000320| 6c 20 28 4f 62 6d 70 2c | 78 2a 72 73 2f 34 2b 78 |l (Obmp,|x*rs/4+x|
|00000330| 72 2c 79 2a 72 73 2f 34 | 2b 79 72 2c 70 69 78 29 |r,y*rs/4|+yr,pix)|
|00000340| 0d 0a 20 20 20 20 20 4e | 65 78 74 20 61 0d 0a 20 |..     N|ext a.. |
|00000350| 20 20 4e 65 78 74 20 72 | 0d 0a 20 20 20 50 72 65 |  Next r|..   Pre|
|00000360| 76 69 65 77 28 4f 62 6d | 70 2c 22 4f 75 74 70 75 |view(Obm|p,"Outpu|
|00000370| 74 22 2c 32 2c 35 29 0d | 0a 4e 65 78 74 20 69 0d |t",2,5).|.Next i.|
|00000380| 0a 0d 0a 53 61 76 65 49 | 6d 61 67 65 28 4f 62 6d |...SaveI|mage(Obm|
|00000390| 70 2c 6f 75 74 46 69 6c | 65 29 0d 0a 44 73 70 4d |p,outFil|e)..DspM|
|000003a0| 65 73 28 22 4f 6b 22 29 |                         |es("Ok")|        |
+--------+-------------------------+-------------------------+--------+--------+